home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / lang / uc_0_30.lha / u / tca / tc0015.ua < prev    next >
Text File  |  1996-10-30  |  319b  |  28 lines
  1. `**********************
  2. `* P R O J E C T  < U >
  3. `*
  4. `* Author and copyright
  5. `* (c) 1996
  6. `* Paul van der Valk
  7. `*
  8. `* file: tc0015.ua
  9. `*
  10. `* Tests IF..THEN..ELSE
  11. `*
  12. `* output should read:
  13. `*   "FALSE"
  14.  
  15. #1 .H 2 0 0 0
  16. #2 .M "tc0015" 20 00 0 0
  17.  
  18. #20 .i 30 40 50
  19.  
  20. #30 .n 0
  21.  
  22. #40 .c 2 41
  23. #41 .s "TRUE"
  24.  
  25. #50 .c 2 51
  26. #51 .s "FALSE"
  27.  
  28.